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TITLE: 
TYPE: 
SYMBOLS : 



DESCRIPTION: 



DATA' 



Matrix Interleaf er (SADOI Only) 

Complete program 

n. = number of elements per row (or number of columns) of 
matrix A 

n = number of elements per row of matrix B 

r . = number of rows of matrix A 

d. = number of decimal digits to be punched in output of A 

cL = number of decimal digits to be punched in output 'of B 

This routine augments a rectangular matrix A with another 

rectangular matrix B to form a final matrix C, which has 

(n. + n_.) columns and r rows: it is assumed that A and B 
A r> A 

have the same number of rows. Thus, the Kth row of C will 
have the elements A^, A^, ..., A^, B^, B^, .... B^. 

Because the elements of the matrices A and B may be known 
to dif ferent degrees of accuracy, tills program requires 
specification of the number of decimal digits to be punched 
in each part of the final matriK. The elements of C may 
or may not have an N inserted after n. characters, depending 
on the parameter x, If x = 0, no N is inserted; if x = 1, 
an N is inserted. An N is punched at the end of each row 
of C. This last feature may be utilized to prepare tapes 
for M13<» M24? etc. where a row of a matrix terminated by 
an N must be augmented by a row of another matrix* 
A parameter tape is prepared as follows: 
n., space, r, space, d , space, n~, space, cL, space x s 
Each parameter is an unsigned integer, with no extra 5"th 
hole characters among the digits of each parameter. 
The data tapes for the matrices A and B are prepared by 
punching each element as a signed fraction with up to 12 
decimal .digits - Each row of the matrix may or may not be 
terminated by an R, J, F, or L character, at the user's 
discretion, with the exception that the last row must be 
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EXAMPLE: 



terminated by one of the characters +, -, H, J, F, or L, 
The two following input tapes , 



3 2 2 2 2£pj 
+01 +02 +03 j 

+0^ +05 +06 + L 

+07 +08 N 
+09 +10 J 



and 



r 



2 2 2 3 2 G 
+009 +019F 
+0386 +05 - 
+0322 +07 +079 
+06 +09 +1 L 



L 



will produce the same output tape, (except that the carriage- 
return character comes in a different place) 



+01 +02 +03 
+07 +08 N 

+ok +05 +06 

+09 +10 N 



+01 +02 

+03 +07 +08 N 

+0^ +05 

+06 +09 +10 N 



RESTRICTIONS : 



METHOD OP USE: 



TIME REQUIRED 1 ? 



n A , ng < 800 

d A , Og < 12 

(n A + 1) r A < 10,2^0 

1. Clear start master; stops 240QF (if FF000, sum check on 
readin has failed; reread master). At the 2*K)0F stop, 
a white switch up and down will copy tape from the 
reader until a 1-hole delay is reached. 

2. Insert parameter, black switch up; stops 2^02? & 

3. Insert Matrix A, black switch up; stops 2002^7 
k. Insert Matrix B, black switch up; reads, punches, 

stops 2400F 

= U A r A n A + ^ (d B + 1} r B ^ seconds 



150 
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ERROR STOPS 



FFOLO indicates drum transfer failure; this may also 
occur if the input is incorrectly prepared. 



DATE June 6, 


1961 


PROGRAMMED BY 


/-)John Ehrman 


APPROVED BY )f) //J^AJUw^-s' 


' //~~\s ^ // 



nj 
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008K 




Constants 




8 


26 (Y5) 

00 2560F 




Initial drum store address 




9 


F5 t ]F 
00 (+) 


by 16(1), 
12(5) 


Row read end constant 




10 


12 515F 
L5 I IF 


by 15(1) 


A print end constant 




11 


12 515F 
L5 f ]F 


by 18(1) 


B print end constant 




12 


L5 8(1) 
22 1^(5) 




block order during 
B readin 




15 


JO (+) 
50 2(5) 

OOK(l) 




Record parameter 
during A readin 




Ik 


92 6lF 
92 6lF 




Punch delays 




15 


92 6lF 
92 155F 








16 


L5 15L 
k2 8L 




Plant parameter 
Store address 




17 


19 4f 

kO IF 




Count at 1 




18 


81 4f 

kO F 




Read parameters 




19 


50 F 
22 6L 








20 


74 45(P17) 
00 4f 








21 


91 kF 
56 6L 




Terminate on 5th hole 
character 




22 


S5 8(5) 










kO t ]F 


by 2%9 r 


Store parameter 




25 


F5 8L 










k2 8L 
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24 


L5 IF 








l4 if 




Count 


25 


32 3L 
8l 4f 






26 


42 15(5) 

L5 5F 






27 


00 20F 








46 6(2) 




Plant A print digits 


28 


L5 7F 
00 20F 






29 


46 14(2) 
L5 3F 




Plant B print digits 


30 


l4 9F 








42 10F 




A print end constant 


31 


00_20F 








46 9F 




A row read end constant 


32 


L5 6F 
l4 9F 




f 


33 


42 11F 
L5 8f 




B print end constant ( 


34 


40 3(2) 




Set initial drum 




- 40 3(3) 




addresses 


35 


L5 3F 
00 20F 




Set up record and 


36 


46 4(2) 
46 4(5) 




playback parameters 


37 


4i 5F 
24 (2) 

00K(2) 




Clear A row count 


38 


50 (+) 

50 L 




Enter N12 to read A 


39 


26 (N12) 
92 151F 






40 


50 (+) 

50 2L 




Playback row from drum 


4l 




""26 (Y5) | 

oo 2560F 


Toy 19(1) 

10L 


1 
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42 


00 t ]F 
92 131F 


by 21(1) 






^3 


92 515F 
L5 I ]F 


by 8L, 20L, 22L 






kh 


50 { ]F 

50 6l 


by 12(1) 






45 


26 (P17) 

F5 5L 




Print element of A 




k6 


42 5L 
LO 10F 




increment pickup address 
end test 




47 


32 5L 
F5 3L 




Advance drum call 




48 


L4 3F 
26 (21) 




address* 




49 


50 (+) 
50 11L 




Enter N12 to read B 




50 


26 [(H12); 
92 131F 


by 24L,l4(3) 


jumps to 8(3) for other rows of B 




51 


92 515F 










L5 t 3F 


by l6L,21L,23L 


print elements of B 




52 


50 I ]F 

50 i4l 


by 14(1) 






53 


26 (pit) 
F5 13L 




increment pickup address 




54 


42 13L 
LO 11F 








55 


32 13L 
92 770F 




End test 
Punch N- 




56 


F5 5F 
40 5F 




Count rows 




57 


LO 4F 
36 22L 








58 


L5 9F 
42 5L 




Reset pickup addresses 




59 


42 13L 










22 2L 


1 <v 




— * 
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60 


(2.) L5 9F 

k2 5L 




Reset pickup addresses 


61 


k2 15L 




, 




L5 1L 


J 

I Reset B row read jump 


62 


k6 12L | j 




L5 15F 




Reset exit jump for 


65 

i 

! 


kO 2(5) 

92 6lF 


1 


A row read 


6k 


92 6lF 




Punch delays 




2h (i) 




Stop 2400F 


65 


(21)50 (21) 

91 ^F 




^ 


66 


56 2,(21) 
50 2(21) 






61 


02 6F 








k2 5(21) 




. Tape copy,, stop 


68 


LO 5(21) 






92 { ]F 




on one -hole delay 


69 


56 (21) 
22 5(2.) 






70 


00 F 








00 2F 




J 


71 


(2l)ll-0 5(2) 
L5 15(5) 




^ 


72 


00 59F 








52 11(2) 




. If last parameter = 1, 
f 


75 


92 770F 






22 11(2) 




J punch N after A row 




00K(5) 






7^ 


56 2L 




From (N12) 




L5 2F 


from 10L 


not done, re-enter N12 


75 


26 kim2) 

00 F 

— _ 






76 


pro (+) 1 


by 25(2), 


record row of A on drum 





j_50 2L J 


15L 

; i_ 
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77 


/*26 (Y5)~" 


"by 19(1), 






Loo 2560F 


5L 




78 


00 ;.[ ]F 

F5 3L 


by 21(1) 




79 


L4 3F 




advance drum record 




kO 3L 




address 


80 


F5 5F 

40 5F 






81 


LO 4F 








36 11L 






82 


L5 (2) 


from 12(2) 


reset N12 store 




46 2l(N12) 




address for next row 


83 


L5 2F 








LO 38(N12) 




Test for proper N12 


814- 


36 3(N12) 
22 L 




re -entry 


85 


L5 11F 




Finished A; reset for 




00 20F 




B readin 


86 


k6 9F 








L5 12F 




Block drum record, orders 


87 


kO 2L 




and set to block N12 jump 




kl 5F 




clear row count 


88 


20 1(2) 




Stop 20026 




k6 12(2) 




block jump and 


89 


22 12(2) 




re-enter to print 




00 :{ ]f 




The users parameter 


90 


(J5) OOK 




Drum record-playback routine 


125 


(P17) OOK 




Print routine, modified to use 
location 7 instead of location 2 


184 


(N12 )00K 




Readin routine 


223 


00K(+) 








26 999N 




Marker for storage 




00 (N12 ) 








02 23K 








LO 9F 




Modify N12 so as to 


. j 


26 (3) 




be able to count 
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1 



00 996K 

L3 F 
36 (2.) 
FF F 
26 (2.) 

26 996N 



Sum check 



hangup if check fails; 
skip start to begin 



